1 PRINT"[147]HINWEIS:":PRINT"WENN DU KOALA-BILDER UMBENENNEN MOECH-  TEST, DEREN ";
2 PRINT"FILE-NAME NICHT[146]":PRINT"DEM 'STANDARD-FORMAT' ENTSPRICHT -
3 [153]"ALSO '10 ZEICHEN' FUER DEN NAMEN - GGF. MIT NACHSTEHENDEN 'SPACE' -,"
4 [153]"SO SETZE VOR DIE PROGRAMMZEILEN":[153]"    680 WAIT -  710 WAIT"
5 [153]"EIN 'REM' ! (ANSONSTEN WIRD DER FILE-   NAME NICHT GEFUNDEN!)
6 PRINT"IN DIESEM FALL JETZT 'F8' DRUECKEN!"
7 PRINT"  T I G E R C R E W"
8 GETA$:IFA$=""THEN8
9 IFA$=CHR$(140)THENLIST680-710
10 POKE53280,6:POKE53281,6:POKE646,1:K2$=CHR$(129)+"PIC ":S$=" "
20 PRINT"[147]KOALA-RENAME V1.0    WRITTEN BY -T.B.S.-"CHR$(142)
30 PRINT"[158]"CHR$(34)"$"CHR$(34)" = DIR  "CHR$(34)"I"CHR$(34)" = INFORMATION";
40 PRINT"  "CHR$(34)"*"CHR$(34)" = ENDE";
50 PRINT"[153]WOLLEN SIE NUR KOALA-BILDER UMBENENNEN?"
60 POKE198,0:WAIT198,1:GETA$
70 IFA$="N"THENPRINT"[158]NEIN":GOTO130
80 IFA$="J"THENPRINT"[158]JA":GOTO580
90 IFA$="I"THEN800
100 IFA$="$"THEN930
110 IFA$="*"THEN990
120 GOTO10
130 REM ANDERE FORMATE
140 PRINT"[153][1] = KOALA --> ANDERES FORMAT"
150 PRINT"[2] = ANDERES FORMAT --> KOALA"
160 POKE198,0:WAIT198,1:GETA$
170 IFA$="1"THENPRINT"[158][1]":GOTO200
180 IFA$="2"THENPRINT"[158][2]":GOTO420
190 RUN
200 :
210 PRINT"[153]BITTE DEN NAMEN DES KOALA-BILDES ANGEBEN[158]";
220 INPUTK1$
230 IFK1$=""THENRUN
240 K1$=LEFT$(K1$,10)
250 IFLEN(K1$)<10THENK1$=K1$+S$
260 IFLEN(K1$)=10THEN280
270 GOTO250
280 PRINT"[153]NUN DEN NEUEN NAMEN[158]"
290 INPUTAF$
300 IFAF$=""THENRUN
310 PRINT"[153]ANGABEN RICHTIG? ";
320 POKE198,0:WAIT198,1:GETA$
330 IFA$="N"THENRUN
340 PRINT"[158]JA":PRINT"DISK EINLEGEN UND SPACE DRUECKEN!":POKE198,0:WAIT198,1
350 OPEN15,8,15,"R:"+AF$+"="+K2$+K1$
360 CLOSE15
370 PRINT"[158]DISKSTATUS:[146]";:GOSUB980
380 PRINT"[153]BITTE EINE TASTE DRUECKEN!":POKE198,0:WAIT198,1:RUN
390 END
400 RETURN
410 :
420 PRINT"[153]BITTE DEN ALTEN NAMEN ANGEBEN[158]"
430 INPUTAF$
440 IFAF$=""THENRUN
450 PRINT"[153]NUN DER NAMEN DES KOALA-BILDES[158]":INPUTK1$:IFK1$=""THENRUN
460 K1$=LEFT$(K1$,10)
470 IFLEN(K1$)<10THENK1$=K1$+S$
480 IFLEN(K1$)=10THEN500
490 GOTO470
500 PRINT"[153]ANGABEN RICHTIG? ";
510 POKE198,0:WAIT198,1:GETA$
520 IFA$="N"THENRUN
530 PRINT"[158]JA":PRINT"DISK EINLEGEN UND SPACE DRUECKEN!":POKE198,0:WAIT198,1
540 OPEN15,8,15,"R:"+K2$+K1$+"="+AF$:CLOSE15
550 PRINT"[158]DISKSTATUS:[146]";:GOSUB980
560 PRINT"[153]BITTE EINE TASTE DRUECKEN!":POKE198,0:WAIT198,1:RUN
570 :
580 PRINT"[153]NEUER NAME DES KOALABILDES[158]"
590 INPUTNK$
600 IFNK$=""THENRUN
610 NK$=LEFT$(NK$,10)
620 IFLEN(NK$)<10THENNK$=NK$+S$
630 IFLEN(NK$)=10THEN650
640 GOTO620
650 PRINT"[153]ALTER NAME DES KOALABILDES[158]"
660 INPUTAK$
670 IFAK$=""THENRUN
680 AK$=LEFT$(AK$,10)
690 IFLEN(AK$)=10THEN720
700 IFLEN(AK$)<10THENAK$=AK$+S$
710 GOTO690
720 PRINT"[153]ANGABEN RICHTIG? ";
730 POKE198,0:WAIT198,1:GETA$
740 IFA$=""THENRUN
750 IFA$="N"THENRUN
760 PRINT"[158]JA":PRINT"[153]DISKETTE EINLEGEN UND TASTE DRUECKEN!":POKE198,0:WAIT198,1
770 OPEN15,8,15,"R:"+K2$+NK$+"="+K2$+AK$:CLOSE15
780 PRINT"[158]DISKSTATUS:[146]";:GOSUB980
790 PRINT"[153]BITTE EINE TASTE DRUECKEN!":POKE198,0:WAIT198,1:RUN
800 PRINT"[147]"CHR$(14);
810 PRINT"[201]NFORMATION:"
820 PRINT"[193]NDERE [205]ALPROGRAMME HABEN FOLGENDE [197]RKENNUNGSZEICHEN:"
830 PRINT"[194][204][193][218][201][206][199] [208][193][196][196][204][197][211]  =  "CHR$(34)"[208][201].[206][193][205][197]"CHR$(34)
840 PRINT"[207][195][208] [193][210][212] [211][212][213][196][201][207]   =  "CHR$(34)"[206][193][205][197]........[205][208][201][195]"CHR$(34)
850 PRINT"[193][210][212][201][211][212] 64        =  "CHR$(34)"[208]-[206][193][205][197]"CHR$(34)
860 PRINT"[214][201][196][195][207][205] 64        =  "CHR$(34)"[194].[206][193][205][197]"CHR$(34)
870 PRINT"[201][205][193][199][197] [211][217][211][212][197][205]     =  "CHR$(34)"[205][211].[206][193][205][197]"CHR$(34)
880 PRINT"[215]ENN VOR EINEM [206]AMEN (ODER IM [206]AMEN) EIN BESONDERES [218]EICHEN STEHT,";
890 PRINT"DANN VERAENDERN [211]IE DEN [206]AMEN SO, DASS ER MIT [203][207][193][204][193]-[210][197][206][193][205][197]";
900 PRINT" ZU BEARBEITEN IST."
910 PRINT"[194]ITTE DRUECKEN [211]IE EINE [212]ASTE!":POKE198,0:WAIT198,1:RUN
920 :
930 PRINT"[147] 0 ";:OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$,A$,A$:X$=CHR$(0)
940 FORI=1TO7:GETA$,B$,C$,D$:PRINTA$B$C$D$;:NEXT:PRINT:GETA$,A$,A$,B$
950 IFSTTHENSYS65484:CLOSE1:PRINT:GOSUB980:POKE198,0:WAIT198,1:RUN
960 PRINTASC(A$+X$)+256*ASC(B$+X$);:GOTO940
970 END
980 OPEN1,8,15:INPUT#1,F1,F2$,F3,F4:CLOSE15:PRINTF2$:RETURN
990 :
1000 POKE53280,14:POKE53281,6:PRINT"[147][154]AT LAST SOME HELLOS TO ALL MY FRIENDS!"
1010 POKE808,237:END